home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr25
/
newzips.zip
/
NEWINST.CMD
next >
Wrap
OS/2 REXX Batch file
|
1993-06-21
|
612b
|
20 lines
/* newinst */
/* trace ?r */
say ' '
say 'Enter the fully qualified path for the download directory'
say ' '
pull downdirect
say 'Enter the fully qualified path for the target directory'
say ' '
pull destdirect
say 'Enter the title for this program reference object, default will be newzips'
parse pull title
if title = '' then title = 'NewZips'
curdirect = directory()
classname='WPProgram'
location= '<WP_DESKTOP>'
setup='EXENAME='curdirect||'\NEWZIPS.CMD;PROGTYPE=WINDOWABLEVIO;PARAMETERS='downdirect' 'destdirect';'
result = SysCreateObject(classname, title, location, setup, 'R')